home *** CD-ROM | disk | FTP | other *** search
/ Revista CD Expert 37 / CD Expert nº 37.iso / LastCall / lastcall.exe / stuff / lastcall.dxr / 00093_Soda text.ls < prev    next >
Encoding:
Text File  |  2000-03-27  |  365 b   |  21 lines
  1. property pSpr, pOrigMember
  2. global gSodaGun
  3.  
  4. on beginSprite me
  5.   pSpr = sprite(me.spriteNum)
  6.   mChangeText(me, gSodaGun.pSodaFlavor)
  7.   pOrigMember = pSpr.member
  8. end
  9.  
  10. on mChangeText me, newFlavor
  11.   if symbolp(newFlavor) then
  12.     pSpr.member = member(string(newFlavor))
  13.   else
  14.     pSpr.member = newFlavor
  15.   end if
  16. end
  17.  
  18. on mResetText me
  19.   pSpr.member = pOrigMember
  20. end
  21.